home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aae.d64 / crib (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  19KB  |  1,008 lines
  1. 10 REM **
  2. 20 REM ** CRIBBAGE:
  3. 30 REM ** PROGRAMMED BY HERB HASLER
  4. 40 REM **
  5. 100 DIM FD(6,2),FT(4,3),VD(10,2),VT(10,3)
  6. 110 DIM VQ(5,4),PP(7),PS(7),PV(7),VL(5)
  7. 120 DIM CP(7),CS(7),CV(7),V2(15,2)
  8. 130 DIM SQ(15,4),VX(13),CD$(13),S(15)
  9. 140 DEF FNT(X)=(X*(X+1))/2
  10. 150 DEF FNB(X)=(X*(X-1))/2
  11. 160 DEF FNR(X) =INT(RND(0)*X)+1
  12. 170 GOSUB180:GOTO1180
  13. 180 B$="                                      "
  14. 190 CN$=""
  15. 200 DN$=""
  16. 210 O1=0:O2=0
  17. 220 D9(1)=2:D9(2)=6:D9(3)=12
  18. 230 L$="         ":REM 9 BLANKS
  19. 240 RETURN
  20. 250 REM *===========================*
  21. 260 REM * CHECK DOUBLES FOR 15 IN 4 *
  22. 270 REM *===========================*
  23. 280 :
  24. 290 FORI=1TO6
  25. 300 TL=VL(FD(I,1))+VL(FD(I,2))
  26. 310 IFTL=15THENSC=SC+2
  27. 320 NEXTI
  28. 330 RETURN
  29. 340 :
  30. 350 REM *===========================*
  31. 360 REM * CHECK TRIPLES FOR 15 IN 4 *
  32. 370 REM *===========================*
  33. 380 :
  34. 390 FORI=1TO4
  35. 400 TL=VL(FT(I,1))+VL(FT(I,2))+VL(FT(I,3))
  36. 410 IFTL=15THENSC=SC+2
  37. 420 NEXT
  38. 430 RETURN
  39. 440 :
  40. 450 REM *===========================*
  41. 460 REM * CHECK DOUBLES FOR 15 IN 5 *
  42. 470 REM *===========================*
  43. 480 :
  44. 490 FORI=1TO10
  45. 500 TL=VL(VD(I,1))+VL(VD(I,2))
  46. 510 IFTL=15THENSC=SC+2
  47. 520 NEXTI
  48. 530 RETURN
  49. 540 :
  50. 550 REM *===========================*
  51. 560 REM * CHECK TRIPLES FOR 15 IN 5 *
  52. 570 REM *===========================*
  53. 580 :
  54. 590 FORI=1TO10
  55. 600 TL=VL(VT(I,1))+VL(VT(I,2))+VL(VT(I,3))
  56. 610 IFTL=15THENSC=SC+2
  57. 620 NEXT
  58. 630 RETURN
  59. 640 :
  60. 650 REM *===========================*
  61. 660 REM * CHECK  QUADS  FOR 15 IN 5 *
  62. 670 REM *===========================*
  63. 680 :
  64. 690 FORI=1TO5
  65. 700 TL=VL(VQ(I,1))+VL(VQ(I,2))+VL(VQ(I,3))+VL(VQ(I,4))
  66. 710 IFTL=15THENSC=SC+2
  67. 720 NEXTI
  68. 730 RETURN
  69. 740 :
  70. 750 REM *===========================*
  71. 760 REM *  CHECK QUADS FOR 15 IN 4  *
  72. 770 REM *===========================*
  73. 780 :
  74. 790 :
  75. 800 TL=VL(1)+VL(2)+VL(3)+VL(4)
  76. 810 IFTL=15THENSC=SC+2
  77. 820 RETURN
  78. 830 :
  79. 840 REM *===========================*
  80. 850 REM * CHECK QUINTS  FOR 15 IN 5 *
  81. 860 REM *===========================*
  82. 870 :
  83. 880 :
  84. 890 TL=VL(1)+VL(2)+VL(3)+VL(4)+VL(5)
  85. 900 IFTL=15THENSC=SC+2
  86. 910 RETURN
  87. 920 :
  88. 930 REM *============================*
  89. 940 REM   *  CHECK FOR RUNS IN 4   *
  90. 950 REM *============================*
  91. 960 :
  92. 970 TL=0
  93. 980 FORI=1TO4
  94. 990 TL=TL+VP(I)
  95. 1000 NEXT I
  96. 1010 TT=FNT(VP(4))-FNB(VP(1))
  97. 1020 IFTT=TLTHENSC=SC+4:RN=1
  98. 1030 RETURN
  99. 1040 :
  100. 1050 TL=0
  101. 1060 FORI=1TO4
  102. 1070 TL=0
  103. 1080 TL=TL+VP(FT(I,1))+VP(FT(I,2))+VP(FT(I,3))
  104. 1090 TT=FNT(VP(FT(I,3)))-FNB(VP(FT(I,1)))
  105. 1100 IFTT=TLTHENSC=SC+3
  106. 1110 NEXT
  107. 1120 RETURN
  108. 1130 REM ******************************
  109. 1140 REM *                            *
  110. 1150 REM *       INITIALIZATION       *
  111. 1160 REM *                            *
  112. 1170 REM ******************************
  113. 1180 FORI=1TO6:FORJ=1TO2
  114. 1190 READ FD(I,J)
  115. 1200 NEXTJ,I
  116. 1210 FORI=1TO4:FORJ=1TO3
  117. 1220 READ FT(I,J)
  118. 1230 NEXTJ,I
  119. 1240 FORI=1TO10:FORJ=1TO2
  120. 1250 READ VD(I,J)
  121. 1260 NEXTJ,I
  122. 1270 FORI=1TO10:FORJ=1TO3
  123. 1280 READ VT(I,J)
  124. 1290 NEXTJ,I
  125. 1300 FORI=1TO5:FORJ=1TO4
  126. 1310 READ VQ(I,J)
  127. 1320 NEXTJ,I
  128. 1330 FORI=1TO15:FORJ=1TO4
  129. 1340 READ SQ(I,J)
  130. 1350 NEXT J,I
  131. 1360 FORI=1TO13:READVX(I):NEXT
  132. 1370 FORI=1TO13:READCD$(I):NEXT
  133. 1380 FORI=1TO4:READSU$(I):NEXT
  134. 1390 FORI=1TO15:FORJ=1TO2
  135. 1400 READ V2(I,J)
  136. 1410 NEXTJ,I
  137. 1420 GOTO6310
  138. 1430 REM
  139. 1440 REM DATA FOR DIV FROM 4 CARDS
  140. 1450 REM
  141. 1460 REM
  142. 1470 :
  143. 1480 REM PAIRS (6)
  144. 1490 DATA 1,2, 1,3, 1,4, 2,3, 2,4, 3,4
  145. 1500 :
  146. 1510 REM TRIPLES (4)
  147. 1520 DATA 1,2,3, 1,2,4, 1,3,4, 2,3,4
  148. 1530 :
  149. 1540 :
  150. 1550 REM
  151. 1560 REM DATA FOR DIV FROM 5 CARDS
  152. 1570 REM
  153. 1580 :
  154. 1590 REM PAIRS (10)
  155. 1600 DATA 1,2, 1,3, 1,4, 1,5, 2,3, 2,4
  156. 1610 DATA 2,5, 3,4, 3,5, 4,5
  157. 1620 :
  158. 1630 REM TRIPLES (10)
  159. 1640 DATA 1,2,3, 1,2,4, 1,2,5, 1,3,4
  160. 1650 DATA 1,3,5, 1,4,5, 2,3,4, 2,3,5
  161. 1660 DATA 2,4,5, 3,4,5
  162. 1670 :
  163. 1680 REM QUADS (5)
  164. 1690 DATA 1,2,3,4, 1,2,3,5, 1,2,4,5
  165. 1700 DATA 1,3,4,5, 2,3,4,5
  166. 1710 :
  167. 1720 REM
  168. 1730 REM SPLIT OF 4 FROM 6 (15)
  169. 1740 REM
  170. 1750 :
  171. 1760 DATA 1,2,3,4, 1,2,3,5, 1,2,3,6
  172. 1770 DATA 1,2,4,5, 1,2,4,6, 1,2,5,6
  173. 1780 DATA 1,3,4,5, 1,3,4,6, 1,3,5,6
  174. 1790 DATA 1,4,5,6, 2,3,4,5, 2,3,4,6
  175. 1800 DATA 2,3,5,6, 2,4,5,6, 3,4,5,6
  176. 1810 DATA 1,2,3,4,5,6,7,8,9,10,10,10,10
  177. 1820 DATA A,2,3,4,5,6,7,8,9,T,J,Q,K
  178. 1830 DATA "[216]","[211]","[193]","[218]"
  179. 1840 :
  180. 1850 DATA 5,6, 4,6, 4,5, 3,6, 3,5, 3,4
  181. 1860 DATA 2,6, 2,5, 2,4, 2,3, 1,6, 1,5
  182. 1870 DATA 1,4, 1,3, 1,2
  183. 1880 :
  184. 1890 REM *****************************
  185. 1900 REM *                           *
  186. 1910 REM *    -+-  MAIN LINE  -+-    *
  187. 1920 REM *                           *
  188. 1930 REM *****************************
  189. 1940 :
  190. 1950 :
  191. 1960 FORI=1TO4:C0(I)=1:P0(I)=1:NEXT
  192. 1970 DECK$="0000000000000000000000000000000000000000000000000000"
  193. 1980 FORI=1TO6
  194. 1990 GOSUB 2190
  195. 2000 PS(I)=NS:PV(I)=NV:PP(I)=NP
  196. 2010 NEXTI
  197. 2020 FORI=1TO6
  198. 2030 GOSUB 2190
  199. 2040 CS(I)=NS:CV(I)=NV:CP(I)=NP
  200. 2050 NEXTI:PRINT"[147]"
  201. 2060 GOSUB2470:GOSUB2600
  202. 2070 GOSUB3800
  203. 2080 GOSUB4370
  204. 2090 GOSUB2190
  205. 2100 US=NS:UP=NP:UV=NV
  206. 2110 IFUP=11THENONTRGOTO2130,2140
  207. 2120 GOTO2150
  208. 2130 O2=O2+2:GOSUB8480:GOTO2150
  209. 2140 O1=O1+2:GOSUB8480
  210. 2150 GOSUB2260:FORI=1TO3000:NEXT
  211. 2160 PRINT""
  212. 2170 FORI=1TO12:PRINTB$:NEXT
  213. 2180 ONTRGOTO9800,9870
  214. 2190 NS=FNR(4):NP=FNR(13)
  215. 2200 LN=LEN(DECK$)
  216. 2210 PO=(NS-1)*13+NP
  217. 2220 IFMID$(DECK$,PO,1)="1"THEN2190
  218. 2230 DECK$=LEFT$(DECK$,PO-1)+"1"+RIGHT$(DECK$,LN-PO)
  219. 2240 NV=VX(NP)
  220. 2250 RETURN
  221. 2260 :
  222. 2270 PRINT""
  223. 2280 FORI=1TO12:PRINTB$:NEXTI
  224. 2290 PR=UP:C$=MID$("[151][150][151][150]",US,1)
  225. 2300 ST$=MID$(DN$,1,12)
  226. 2310 SS$=SU$(US)
  227. 2320 P1$=CD$(PR)
  228. 2330 TB=15
  229. 2340 GOSUB2860
  230. 2350 PRINTC$
  231. 2360 GOSUB2970
  232. 2370 PRINT"";CN$;"[154]UP CARD"
  233. 2380 RETURN
  234. 2390 :
  235. 2400 PRINT"(UP TO 10 LETTERS)[145][145]"
  236. 2410 INPUT"PLEASE ENTER YOUR NAME";N$:N$=LEFT$(N$,10)
  237. 2420 PRINT"DO YOU WANT TO DEAL FIRST "N$"
  238. 2430 [133]"TYPE Y OR N";G$:PB[178]20
  239. 2440 [139]G$[178]"Y"[167][153]B$:[153]"ONOK.":TR[178]1:[142]
  240. 2450 [139]G$[178]"N"[167][153]B$:[153]"ONOK, I'LL DEAL.":[153]B$:[153]B$:TR[178]2:[142]
  241. 2460 [153]"TYPE Y(YES) OR N(NO) ONONONONONONON":G$[178]"":[137]2420
  242. 2470 [129]I[178]1[164]6
  243. 2480 [129]J[178]1[164]5
  244. 2490 [139]PP(J)[177]PP(J[170]1)[167][141]2520
  245. 2500 [130]J,I
  246. 2510 [142]
  247. 2520 K[178]PP(J[170]1):L[178]PV(J[170]1):M[178]PS(J[170]1)
  248. 2530 PP(J[170]1)[178]PP(J)
  249. 2540 PS(J[170]1)[178]PS(J)
  250. 2550 PV(J[170]1)[178]PV(J)
  251. 2560 PP(J)[178]K
  252. 2570 PS(J)[178]M
  253. 2580 PV(J)[178]L
  254. 2590 [142]
  255. 2600 [129]I[178]1[164]6
  256. 2610 [129]J[178]1[164]5
  257. 2620 [139]CP(J)[177]CP(J[170]1)[167][141]2650
  258. 2630 [130]J,I
  259. 2640 [142]
  260. 2650 K[178]CP(J[170]1):L[178]CV(J[170]1):M[178]CS(J[170]1)
  261. 2660 CP(J[170]1)[178]CP(J)
  262. 2670 CS(J[170]1)[178]CS(J)
  263. 2680 CV(J[170]1)[178]CV(J)
  264. 2690 CP(J)[178]K
  265. 2700 CS(J)[178]M
  266. 2710 CV(J)[178]L
  267. 2720 [142]
  268. 2730 [129]I[178]1[164]5
  269. 2740 [129]J[178]1[164]4
  270. 2750 [139]VP(J)[177]VP(J[170]1)[167][141]2780
  271. 2760 [130]J,I
  272. 2770 [142]
  273. 2780 K[178]VP(J[170]1):L[178]VV(J[170]1):M[178]VS(J[170]1)
  274. 2790 VP(J[170]1)[178]VP(J)
  275. 2800 VS(J[170]1)[178]VS(J)
  276. 2810 VV(J[170]1)[178]VV(J)
  277. 2820 VP(J)[178]K
  278. 2830 VS(J)[178]M
  279. 2840 VV(J)[178]L
  280. 2850 [142]
  281. 2860 CD$[178]"(null)       (null)"
  282. 2870 [153]ST$;:[153][163]TB)"CONT(null)TANTANTANTANTANTANTANRIGHT$"
  283. 2880 [153][163]TB)"(null)"C$;P1$"CONT(null)"
  284. 2890 [153][163]TB)"(null)"C$;SS$"CONT(null)"
  285. 2900 [153][163]TB)CD$
  286. 2910 [153][163]TB)CD$
  287. 2920 [153][163]TB)CD$
  288. 2930 [153][163]TB)"(null)      "C$;SS$"CONT(null)"
  289. 2940 [153][163]TB)"(null)      "C$;P1$"CONT(null)"
  290. 2950 [153][163]TB)"MID$TANTANTANTANTANTANTAN(null)"
  291. 2960 [142]
  292. 2970 [145]PR[137]2980,3050,3090,3140,3180,3230,3280,3340,3410,3480,3560,3640,3720
  293. 2980 [153]ST$""
  294. 2990 [153][163]TB)"A"
  295. 3000 [153][163]TB)"CCC"
  296. 3010 [153][163]TB)"E E E"
  297. 3020 [153][163]TB)"CCC"
  298. 3030 [153][163]TB)"A"
  299. 3040 [142]
  300. 3050 [153]ST$""
  301. 3060 [153][163]TB)""SS$
  302. 3070 [153]"":[153][163]TB)""SS$
  303. 3080 [142]
  304. 3090 [153]ST$""
  305. 3100 [153][163]TB)""SS$""
  306. 3110 [153][163]TB)""SS$""
  307. 3120 [153][163]TB)""SS$
  308. 3130 [142]
  309. 3140 [153]ST$""
  310. 3150 [153][163]TB)""SS$""SS$""
  311. 3160 [153][163]TB)""SS$""SS$
  312. 3170 [142]
  313. 3180 [153]ST$""
  314. 3190 [153][163]TB)""SS$""SS$""
  315. 3200 [153][163]TB)""SS$""
  316. 3210 [153][163]TB)""SS$""SS$
  317. 3220 [142]
  318. 3230 [153]ST$""
  319. 3240 [153][163]TB)""SS$""SS$""
  320. 3250 [153][163]TB)""SS$""SS$""
  321. 3260 [153][163]TB)""SS$""SS$
  322. 3270 [142]
  323. 3280 [153]ST$""
  324. 3290 [153][163]TB)""SS$""SS$
  325. 3300 [153][163]TB)""SS$
  326. 3310 [153][163]TB)""SS$""SS$""
  327. 3320 [153][163]TB)""SS$""SS$
  328. 3330 [142]
  329. 3340 [153]ST$""
  330. 3350 [153][163]TB)""SS$""SS$
  331. 3360 [153][163]TB)""SS$
  332. 3370 [153][163]TB)""SS$""SS$
  333. 3380 [153][163]TB)""SS$
  334. 3390 [153][163]TB)""SS$""SS$
  335. 3400 [142]
  336. 3410 [153]ST$
  337. 3420 [153][163]TB)""SS$""SS$
  338. 3430 [153][163]TB)""SS$
  339. 3440 [153][163]TB)""SS$""SS$""
  340. 3450 [153][163]TB)""SS$""SS$""
  341. 3460 [153][163]TB)""SS$""SS$
  342. 3470 [142]
  343. 3480 [153]ST$
  344. 3490 [153][163]TB)""SS$""SS$
  345. 3500 [153][163]TB)""SS$
  346. 3510 [153][163]TB)""SS$""SS$""
  347. 3520 [153][163]TB)""SS$""SS$
  348. 3530 [153][163]TB)""SS$
  349. 3540 [153][163]TB)""SS$""SS$
  350. 3550 [142]
  351. 3560 TB[178]TB[170]2:[153]ST$:[153][163]TB)"(null)TAB(TAB(TAB((null)"
  352. 3570 [153][163]TB)"FNFNJ THEN"
  353. 3580 [153][163]TB)"FNFNA THEN"
  354. 3590 [153][163]TB)"SGN C THEN"
  355. 3600 [153][163]TB)"FN KTHENTHEN"
  356. 3610 [153][163]TB)"FN"SS$"THENTHEN"
  357. 3620 [153][163]TB)"(null)TOTOTOSQR"
  358. 3630 [142]
  359. 3640 TB[178]TB[170]2:[153]ST$:[153][163]TB)"(null)TAB(TAB(TAB((null)"
  360. 3650 [153][163]TB)"FNFNQ THEN"
  361. 3660 [153][163]TB)"FNFNU THEN"
  362. 3670 [153][163]TB)"SGN E THEN"
  363. 3680 [153][163]TB)"FN ETHENTHEN"
  364. 3690 [153][163]TB)"FN NTHENTHEN"
  365. 3700 [153][163]TB)"(null)TOTOTOSQR"
  366. 3710 [142]
  367. 3720 TB[178]TB[170]2:[153]ST$:[153][163]TB)"(null)TAB(TAB(TAB((null)"
  368. 3730 [153][163]TB)"FNFNK THEN"
  369. 3740 [153][163]TB)"FNFNI THEN"
  370. 3750 [153][163]TB)"SGN N THEN"
  371. 3760 [153][163]TB)"FN GTHENTHEN"
  372. 3770 [153][163]TB)"FN"SS$"THENTHEN"
  373. 3780 [153][163]TB)"(null)TOTOTOSQR"
  374. 3790 [142]
  375. 3800 [129]I[178]1[164]4
  376. 3810 PR[178]PP(I):C$[178][202]("POKEDEFPOKEDEF",PS(I),1)
  377. 3820 ST$[178]""
  378. 3830 SS$[178]SU$(PS(I))
  379. 3840 P1$[178]CD$(PR)
  380. 3850 TB[178](I[171]1)[172]9[170]2:[141]2860
  381. 3860 [153]C$:[141]2970:[130]
  382. 3870 [153]"CONT1234"
  383. 3880 [129]I[178]5[164]6
  384. 3890 PR[178]PP(I):C$[178][202]("POKEDEFPOKEDEF",PS(I),1)
  385. 3900 ST$[178]""
  386. 3910 SS$[178]SU$(PS(I))
  387. 3920 P1$[178]CD$(PR)
  388. 3930 TB[178](I[171]5)[172]15[170]7
  389. 3940 [141]2860
  390. 3950 [153]C$
  391. 3960 [141]2970
  392. 3970 [130]
  393. 3980 [153]"CONT56":[141]8480
  394. 3990 [153][202](DN$,1,22)"> PLEASE CHOOSE TWO CARDS TO BE PUT IN"
  395. 4000 [133]"THE CRIB (#,#)";A,B
  396. 4010 [139]A[179]1[176]A[177]6[167][153]"ONONONON":[137]3990
  397. 4020 [139]B[179]1[176]B[177]6[167][153]"ONONONON":[137]3990
  398. 4030 [139] A[178]B [167][153]"ONONONON":[137]3990
  399. 4040 [139]B[179]A[167]I[178]A:A[178]B:B[178]I
  400. 4050 PI[178]0
  401. 4060 [129]I[178]1[164]15
  402. 4070 [139]A[178]V2(I,1)[175]B[178]V2(I,2)[167]PI[178]I:I[178]15
  403. 4080 [130]I
  404. 4090 [139]PI[178]0[167][153]"ERROR":[128]
  405. 4100 [129]I[178]1[164]4
  406. 4110 TP(I)[178]PP(SQ(PI,I))
  407. 4120 TS(I)[178]PS(SQ(PI,I))
  408. 4130 TV(I)[178]PV(SQ(PI,I))
  409. 4140 [130]I
  410. 4150 RP(1)[178]PP(V2(PI,1))
  411. 4160 RS(1)[178]PS(V2(PI,1))
  412. 4170 RV(1)[178]PV(V2(PI,1))
  413. 4180 RV(2)[178]PV(V2(PI,2))
  414. 4190 RS(2)[178]PS(V2(PI,2))
  415. 4200 RP(2)[178]PP(V2(PI,2))
  416. 4210 [129]I[178]1[164]4
  417. 4220 PP(I)[178]TP(I)
  418. 4230 PS(I)[178]TS(I)
  419. 4240 PV(I)[178]TV(I)
  420. 4250 [130]I:[153]"LOAD";
  421. 4260 [129]I[178]1[164]4
  422. 4270 PR[178]PP(I):C$[178][202]("POKEDEFPOKEDEF",PS(I),1)
  423. 4280 ST$[178]""
  424. 4290 SS$[178]SU$(PS(I))
  425. 4300 P1$[178]CD$(PR)
  426. 4310 TB[178](I[171]1)[172]9[170]2:[141]2860
  427. 4320 [153]C$:[141]2970:[130]
  428. 4330 [153]"CONT1234"
  429. 4340 [153]"I'M STILL DECIDING..."
  430. 4350 [142]
  431. 4360 [146]198,1:[128]
  432. 4370 [141]8480
  433. 4380 [129]K[178]1[164]15
  434. 4390 [129]L[178]1[164]4
  435. 4400 VL(L)[178]CV(SQ(K,L))
  436. 4410 VP(L)[178]CP(SQ(K,L))
  437. 4420 [130]L
  438. 4430 SC[178]0
  439. 4440 [141]250
  440. 4450 [141]350
  441. 4460 [141]750
  442. 4470 RN[178]0
  443. 4480 [141]930
  444. 4490 [139]RN[178]1[167]4510
  445. 4500 [141]1050
  446. 4510 [141]4760
  447. 4520 [141]4920
  448. 4530 S(K)[178]SC
  449. 4540 [130]K:H[178][171]1:PI[178]0
  450. 4550 [129]I[178]1[164]15
  451. 4560 [139]S(I)[177]H[167]H[178]S(I):PI[178]I
  452. 4570 [130]I
  453. 4580 [139]PI[178]0[167][153]"***ERROR: LINE IS 9250":[128]
  454. 4590 [129]I[178]1[164]4
  455. 4600 TP(I)[178]CP(SQ(PI,I))
  456. 4610 TS(I)[178]CS(SQ(PI,I))
  457. 4620 TV(I)[178]CV(SQ(PI,I))
  458. 4630 [130]I
  459. 4640 RP(3)[178]CP(V2(PI,1))
  460. 4650 RS(3)[178]CS(V2(PI,1))
  461. 4660 RV(3)[178]CV(V2(PI,1))
  462. 4670 RV(4)[178]CV(V2(PI,2))
  463. 4680 RS(4)[178]CS(V2(PI,2))
  464. 4690 RP(4)[178]CP(V2(PI,2))
  465. 4700 [129]I[178]1[164]4
  466. 4710 CP(I)[178]TP(I)
  467. 4720 CS(I)[178]TS(I)
  468. 4730 CV(I)[178]TV(I)
  469. 4740 [130]I
  470. 4750 [142]
  471. 4760 [143]
  472. 4770 [143] FIND 4/3/2 OF A KIND FROM 4
  473. 4780 [143]
  474. 4790 :
  475. 4800 PI[178]0
  476. 4810 [139]VP(1)[178]VP(2)[175]VP(1)[178]VP(3)[175]VP(1)[178]VP(4)[167]SC[178]SC[170]12:[142]
  477. 4820 [129]I[178]1[164]4
  478. 4830 [139]VP(FT(I,1))[178]VP(FT(I,2))[175]VP(FT(I,1))[178]VP(FT(I,3))[167]SC[178]SC[170]6:I[178]4:PI[178]1
  479. 4840 [130]I
  480. 4850 [139]PI[178]1[167][142]
  481. 4860 [129]I[178]1[164]6
  482. 4870 [139]VP(FD(I,1))[178]VP(FD(I,2))[167]SC[178]SC[170]2:PI[178]I:I[178]6
  483. 4880 [130]I
  484. 4890 [139]FD(PI,1)[179][177]1[175]FD(PI,2)[179][177]2[167][142]
  485. 4900 [139]VP(3)[178]VP(4)[167]SC[178]SC[170]2
  486. 4910 [142]
  487. 4920 [139]CS(1)[179][177]CS(2)[167][142]
  488. 4930 [139]CS(1)[179][177]CS(3)[167][142]
  489. 4940 [139]CS(1)[179][177]CS(4)[167][142]
  490. 4950 SC[178]SC[170]4:[142]
  491. 4960 [143] *===========================*
  492. 4970 [143] * CHECK 4/3/2 OF A KIND IN5 *
  493. 4980 [143] *===========================*
  494. 4990 :
  495. 5000 PI[178]0
  496. 5010 [129]I[178]1[164]5
  497. 5020 [139]VP(VQ(I,1))[179][177]VP(VQ(I,2))[167]5060
  498. 5030 [139]VP(VQ(I,1))[179][177]VP(VQ(I,3))[167]5060
  499. 5040 [139]VP(VQ(I,1))[179][177]VP(VQ(I,4))[167]5060
  500. 5050 SC[178]SC[170]12:PI[178]1:I[178]5
  501. 5060 [130]
  502. 5070 [139]PI[178]1[167][142]
  503. 5080 :
  504. 5090 P9[178]0
  505. 5100 [129]I[178]1[164]10
  506. 5110 [139]VP(VT(I,1))[179][177]VP(VT(I,2))[167]5140
  507. 5120 [139]VP(VT(I,1))[179][177]VP(VT(I,3))[167]5140
  508. 5130 SC[178]SC[170]6:P9[178]VP(VT(I,1)):I[178]10
  509. 5140 [130]
  510. 5150 :
  511. 5160 [139]P9[179][177]0[167]5230
  512. 5170 [129]I[178]1[164]10
  513. 5180 [139]VP(VD(I,1))[179][177]VP(VD(I,2))[167]5200
  514. 5190 SC[178]SC[170]2:P9[178]VP(VD(I,1)):I[178]10
  515. 5200 [130]
  516. 5210 [139]P9[178]0[167][142]
  517. 5220 :
  518. 5230 [129]I[178]1[164]10
  519. 5240 [139]VP(VD(I,1))[179][177]VP(VD(I,2))[167]5270
  520. 5250 [139]VP(VD(I,1))[178]P9[167]5270
  521. 5260 SC[178]SC[170]2:I[178]10
  522. 5270 [130]
  523. 5280 [142]
  524. 5290 [143]
  525. 5300 [143] CHECK FOR FLUSH IN CRIB
  526. 5310 [143]
  527. 5320 :
  528. 5330 [139]RS(1)[179][177]RS(2)[167][142]
  529. 5340 [139]RS(1)[179][177]RS(3)[167][142]
  530. 5350 [139]RS(1)[179][177]RS(4)[167][142]
  531. 5360 [139]RS(4)[178]RS(5)[167]SC[178]SC[170]5
  532. 5370 [142]
  533. 5380 [143]
  534. 5390 [143] CHECK FOR FLUSH IN 5
  535. 5400 [143]
  536. 5410 :
  537. 5420 [139]CS(1)[179][177]CS(2)[167][142]
  538. 5430 [139]CS(1)[179][177]CS(3)[167][142]
  539. 5440 [139]CS(1)[179][177]CS(4)[167][142]
  540. 5450 SC[178]SC[170]4
  541. 5460 [139]CS(4)[178]CS(5)[167]SC[178]SC[170]1
  542. 5470 [142]
  543. 5480 [143]
  544. 5490 [143] CHECK FOR FLUSH IN 5
  545. 5500 [143]
  546. 5510 :
  547. 5520 [139]PS(1)[179][177]PS(2)[167][142]
  548. 5530 [139]PS(1)[179][177]PS(3)[167][142]
  549. 5540 [139]PS(1)[179][177]PS(4)[167][142]
  550. 5550 SC[178]SC[170]4
  551. 5560 [139]PS(4)[178]PS(5)[167]SC[178]SC[170]1
  552. 5570 [142]
  553. 5580 :
  554. 5590 [129]I[178]1[164]4
  555. 5600 [139]CP(I)[178]11[175]CS(I)[178]US[167]SC[178]SC[170]1:I[178]4
  556. 5610 [130]
  557. 5620 [142]
  558. 5630 [129]I[178]1[164]4
  559. 5640 [139]PP(I)[178]11[175]PS(I)[178]US[167]SC[178]SC[170]1:I[178]4
  560. 5650 [130]
  561. 5660 [142]
  562. 5670 [129]I[178]1[164]4
  563. 5680 [139]RP(I)[178]11[175]RS(I)[178]US[167]SC[178]SC[170]1:I[178]4
  564. 5690 [130]
  565. 5700 [142]
  566. 5710 :
  567. 5720 [143] *===========================*
  568. 5730 [143] * CHECK FOR RUNS IN 5       *
  569. 5740 [143] *===========================*
  570. 5750 :
  571. 5760 TL[178]0
  572. 5770 [129]I[178]1[164]5
  573. 5780 TL[178]TL[170]VP(I)
  574. 5790 [130]I
  575. 5800 TT[178][165]T(VP(5))[171][165]B(VP(1))
  576. 5810 [139]TT[178]TL[167]SC[178]SC[170]5:RN[178]1
  577. 5820 [142]
  578. 5830 :
  579. 5840 TL[178]0
  580. 5850 [129]I[178]1[164]5
  581. 5860 TL[178]0
  582. 5870 TL[178]TL[170]VP(VQ(I,1))[170]VP(VQ(I,2))[170]VP(VQ(I,3))[170]VP(VQ(I,4))
  583. 5880 TT[178][165]T(VP(VQ(I,4)))[171][165]B(VP(VQ(I,1)))
  584. 5890 [139]TT[178]TL[167]SC[178]SC[170]4:RN[178]1
  585. 5900 [130]
  586. 5910 [142]
  587. 5920 :
  588. 5930 TL[178]0
  589. 5940 [129]I[178]1[164]10
  590. 5950 TL[178]0
  591. 5960 TL[178]TL[170]VP(VT(I,1))[170]VP(VT(I,2))[170]VP(VT(I,3))
  592. 5970 TT[178][165]T(VP(VT(I,3)))[171][165]B(VP(VT(I,1)))
  593. 5980 [139]TT[178]TL[167]SC[178]SC[170]3
  594. 5990 [130]
  595. 6000 [142]
  596. 6010 :
  597. 6020 [143]
  598. 6030 [143] DISPLAY COMP HAND FOR COUNT
  599. 6040 [143]
  600. 6050 :
  601. 6060 [153]"LOAD"[163]16)"MY HAND"
  602. 6070 [129]I[178]1[164]4
  603. 6080 PR[178]CP(I):C$[178][202]("POKEDEFPOKEDEF",CS(I),1)
  604. 6090 ST$[178]""
  605. 6100 SS$[178]SU$(CS(I))
  606. 6110 P1$[178]CD$(PR)
  607. 6120 TB[178](I[171]1)[172]9[170]2:[141]2860
  608. 6130 [153]C$:[141]2970:[130]
  609. 6140 [141]2260
  610. 6150 [142]
  611. 6160 [143]
  612. 6170 [143] DISPLAY PLAYER HAND FOR COUNT
  613. 6180 [143]
  614. 6190 :
  615. 6200 [153]"LOAD"[163]15)"YOUR HAND"
  616. 6210 [129]I[178]1[164]4
  617. 6220 PR[178]PP(I):C$[178][202]("POKEDEFPOKEDEF",PS(I),1)
  618. 6230 ST$[178]""
  619. 6240 SS$[178]SU$(PS(I))
  620. 6250 P1$[178]CD$(PR)
  621. 6260 TB[178](I[171]1)[172]9[170]2:[141]2860
  622. 6270 [153]C$:[141]2970:[130]
  623. 6280 [141]2260
  624. 6290 [142]
  625. 6300 :
  626. 6310 [143] *==========================*
  627. 6320 [143] *      INTRODUCTION!       *
  628. 6330 [143] *==========================*
  629. 6340 :
  630. 6350 [151]53281,15:[151]53280,6
  631. 6360 [153]"LOAD"
  632. 6370 [153]"  (null)TANTANTANTANTANTANTANRIGHT$(null)TANTANTANTANTANTANTANRIGHT$(null)TANTANTANTANTANTANTANRIGHT$(null)TANTANTANTANTANTANTANRIGHT$"
  633. 6380 [153]"  (null)       (null)(null)       (null)(null)       (null)(null)       (null)"
  634. 6390 [153]"  (null) (null)TANTANTANTANTAN(null)(null) (null)TANTANTANRIGHT$ (null)MID$TANTANRIGHT$CLOSE(null)TANTAN(null)(null) (null)TANTANTANRIGHT$ (null)"
  635. 6400 [153]"  (null) (null)      (null) MID$TANTANTAN(null) (null)   (null) (null)   (null) MID$TANTANTAN(null) (null)"
  636. 6410 [153]"  (null) (null)      (null)       (null)   (null) (null)   (null)       (null)"
  637. 6420 [153]"  (null) (null)      (null) (null)TANTANTANTANTAN(null)   (null) (null)   (null)     (null)TAN(null)"
  638. 6430 [153]"  (null) (null)      (null) MID$TANRIGHT$       (null) (null)   (null)     MID$TANRIGHT$"
  639. 6440 [153]"  (null) (null)      (null) (null)RIGHT$MID$TANRIGHT$     (null) (null)   (null)       (null)"
  640. 6450 [153]"  (null) (null)      (null) (null)MID$TANRIGHT$(null)     (null) (null)   (null) (null)TANTANTANRIGHT$ (null)"
  641. 6460 [153]"  (null) MID$TANTANTANTANTANRIGHT$(null) (null)  (null)MID$TANRIGHT$(null)TANTAN(null) MID$TANTANRIGHT$(null) MID$TANTANTAN(null) (null)"
  642. 6470 [153]"  (null)       (null)(null) (null)  MID$RIGHT$ (null)(null)       (null)(null)       (null)"
  643. 6480 [153]"  MID$TANTANTANTANTANTANTAN(null)MID$TAN(null)   MID$TAN(null)MID$TANTANTANTANTANTANTAN(null)MID$TANTANTANTANTANTANTAN(null)"
  644. 6490 [153]"CONT  (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  645. 6500 [153]" (null) DEFCRIBBAGE: PROGRAMED BY H. HASLER CONT(null)
  646. 6510 PRINT"  [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  647. 6520 PRINT"  [221] TYPE:                            [221]"
  648. 6530 PRINT"  [221]      <F1>  FOR INSTRUCTIONS      [221]"
  649. 6540 PRINT"  [221]      <F3>  TO START GAME         [221]"
  650. 6550 PRINT"  [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  651. 6560 POKE198,0
  652. 6570 WAIT198,1
  653. 6580 GETG$
  654. 6590 IFG$="[133]"THEN9390
  655. 6600 IFG$="[134]"THENPRINT"[147]":GOSUB2390:GOTO1890
  656. 6610 PRINT"[145]"B$
  657. 6620 PRINT"[145]INVALID OPTION PLEASE TRY AGAIN.":GOTO6560
  658. 6630 :
  659. 6640 REM
  660. 6650 REM DISPLAY CRIB
  661. 6660 REM
  662. 6670 :
  663. 6680 IFTR=1THENPRINT"[147]"TAB(15)"YOUR CRIB":GOTO6700
  664. 6690 PRINT"[147]"TAB(16)"MY CRIB"
  665. 6700 SC=0
  666. 6710 FORI=1TO4
  667. 6720 PR=RP(I):C$=MID$("[151][150][151][150]",RS(I),1)
  668. 6730 ST$=""
  669. 6740 SS$=SU$(RS(I))
  670. 6750 P1$=CD$(PR)
  671. 6760 TB=(I-1)*9+2:GOSUB2860
  672. 6770 PRINTC$:GOSUB2970:NEXT
  673. 6780 GOSUB2260
  674. 6790 SC=0:GOSUB8480
  675. 6800 RP(5)=UP:RS(5)=US:RV(5)=UV
  676. 6810 FORI=1TO5
  677. 6820 VP(I)=RP(I)
  678. 6830 VS(I)=RS(I)
  679. 6840 VL(I)=RV(I)
  680. 6850 NEXT
  681. 6860 GOSUB2730
  682. 6870 GOSUB450
  683. 6880 GOSUB550
  684. 6890 GOSUB650
  685. 6900 GOSUB840
  686. 6910 RN=0
  687. 6920 GOSUB5720
  688. 6930 IFRN=1THEN6970
  689. 6940 GOSUB5840
  690. 6950 IFRN=1THEN6970
  691. 6960 GOSUB5930
  692. 6970 GOSUB4960
  693. 6980 GOSUB5290
  694. 6990 GOSUB5670
  695. 7000 PRINTMID$(DN$,1,22)"WICH IS WORTH"SC"POINTS
  696. 7010 [145]TR[137]7020,7050
  697. 7020 TR[178]2:O2[178]O2[170]SC
  698. 7030 [151]198,0:[146]198,1:[161]G$
  699. 7040 [137]1890
  700. 7050 TR[178]1:O1[178]O1[170]SC
  701. 7060 [151]198,0:[146]198,1:[161]G$:[153]"LOAD"
  702. 7070 [137]1890
  703. 7080 :
  704. 7090 [143] *==========================*
  705. 7100 [143] *    -+-  MY LEAD  -+-     *
  706. 7110 [143] *==========================*
  707. 7120 :
  708. 7130 N5[178]0
  709. 7140 [129]I[178]1[164]4
  710. 7150 [139]CV(I)[179][177]5[175]C0(I)[178]1[167]N5[178]1
  711. 7160 [130]
  712. 7170 CZ[178][165]R(4)
  713. 7180 [139]N5[178]0[175]CV(CZ)[178]5[167]7170
  714. 7190 CN[178]CV(CZ)
  715. 7200 [153]CN$"";CN
  716. 7210 C0(CZ)[178]0
  717. 7220 CB[178]0
  718. 7230 LP[178]CP(CZ)
  719. 7240 [142]
  720. 7250 :
  721. 7260 :
  722. 7270 :
  723. 7280 :
  724. 7290 :
  725. 7300 :
  726. 7310 :
  727. 7320 CZ[178]0:DD[178]0
  728. 7330 [129]I[178]1[164]4
  729. 7340 [139]C0(I)[178]0[167]7380
  730. 7350 [139](CV(I)[170]CN[178]15[176]CV(I)[170]CN[178]31)[175]C0(I)[178]1[167]CZ[178]I:O1[178]O1[170]2
  731. 7360 [139]CP(I)[178]LP[175]C0(I)[178]1[167]CZ[178]I:I[178]4:L0[178]L0[170]1:O1[178]O1[170]D9(L0):DD[178]1
  732. 7370 [139]CZ[179][177]0[167]I[178]4
  733. 7380 [130]
  734. 7390 [139]DD[178]0[167]L0[178]0
  735. 7400 [139]CZ[178]0[167][141]9730
  736. 7410 C0(CZ)[178]0
  737. 7420 CN[178]CN[170]CV(CZ)
  738. 7430 LP[178]CP(CZ)
  739. 7440 [153]CN$""CN
  740. 7450 MY[178]1
  741. 7460 [142]
  742. 7470 :
  743. 7480 [139]CZ[178]0[167][142]
  744. 7490 PR[178]CP(CZ):C$[178][202]("POKEDEFPOKEDEF",CS(CZ),1)
  745. 7500 ST$[178][202](DN$,1,14)
  746. 7510 SS$[178]SU$(CS(CZ))
  747. 7520 P1$[178]CD$((PR))
  748. 7530 CB[178]CB[170]2
  749. 7540 TB[178]CB:[141]8430
  750. 7550 [141]2860
  751. 7560 [153]C$
  752. 7570 [141]2970
  753. 7580 [142]
  754. 7590 :
  755. 7600 :
  756. 7610 [153][202](DN$,1,13)"WICH CARD."
  757. 7620 [151]198,0
  758. 7630 [146]198,1
  759. 7640 [161]G$
  760. 7650 [139]G$[179]"1"[176]G$[177]"4"[167]7620
  761. 7660 PZ[178][197](G$)
  762. 7670 [139]P0(PZ)[178]0[167][141]7870:[137]7620
  763. 7680 [139] CN[170]PV(PZ)[177]31[167][153][202](DN$,1,23)"TOTAL CAN'T EXCEED 31":[137]7620
  764. 7690 CN[178]CN[170]PV(PZ):P0(PZ)[178]0
  765. 7700 [153]CN$""CN
  766. 7710 [141]8010
  767. 7720 [141]8120
  768. 7730 MY[178]2
  769. 7740 [142]
  770. 7750 :
  771. 7760 PR[178]PP(PZ):C$[178][202]("POKEDEFPOKEDEF",PS(PZ),1)
  772. 7770 ST$[178][202](DN$,1,14)
  773. 7780 SS$[178]SU$(PS(PZ))
  774. 7790 P1$[178]CD$((PR))
  775. 7800 PB[178]PB[170]2
  776. 7810 TB[178]PB:[141]8430
  777. 7820 [141]2860
  778. 7830 [153]C$
  779. 7840 [141]2970
  780. 7850 [153][202](DN$,1,13)B$
  781. 7860 [142]
  782. 7870 [153][202](DN$,1,13)B$:[129]I[178]1[164]100:[130]
  783. 7880 [153][202](DN$,1,13)"THAT CARD IS GONE, WHICH CARD."
  784. 7890 :
  785. 7900 [143]
  786. 7910 [143] CHECK IF PLAYER CAN PLAY
  787. 7920 [143]
  788. 7930 :
  789. 7940 PL[178]0
  790. 7950 [129]I[178]1[164]4
  791. 7960 [139] P0(I)[178]0[167]7980
  792. 7970 [139]CN[170]PV(I)[179]32[167]PL[178]I
  793. 7980 [130]
  794. 7990 [142]
  795. 8000 :
  796. 8010 [143]
  797. 8020 [143] CALC PLAYER PEG POINTS
  798. 8030 [143]
  799. 8040 :
  800. 8050 [139]CN[178]15[167]O2[178]O2[170]2
  801. 8060 [139]CN[178]31[167]O2[178]O2[170]2
  802. 8070 DD[178]0
  803. 8080 [139]PP(PZ)[178]LP[167]L0[178]L0[170]1:DD[178]1:O2[178]O2[170]D9(L0)
  804. 8090 [139]DD[178]0[167]L0[178]0
  805. 8100 LP[178]PP(PZ)
  806. 8110 [142]
  807. 8120 TB[178](PZ[171]1)[172]9[170]2:[153]""
  808. 8130 [129]I[178]1[164]9
  809. 8140 [153][163]TB)L$
  810. 8150 [130]
  811. 8160 [142]
  812. 8170 [143]
  813. 8180 [143] NO-ONE CAN PLAY
  814. 8190 [143]
  815. 8200 :
  816. 8210 CB[178]0:PB[178]22
  817. 8220 [153][202](DN$,1,13)
  818. 8230 [129]I[178]1[164]10
  819. 8240 [153]B$
  820. 8250 [130]
  821. 8260 [145]MY[137]8280,8350
  822. 8270 [153]"***ERROR: LINE IS 40050"
  823. 8280 O1[178]O1[170]1:[141]8480
  824. 8290 CN[178]0:[141]7900
  825. 8300 [141]9630
  826. 8310 [139]PI[178]0[175]PL[178]0[167]8600
  827. 8320 [139]PI[178]0[167][137]10040
  828. 8330 [139]PL[178]0[167][137]9950
  829. 8340 [137]9890
  830. 8350 O2[178]O2[170]1:[141]8480
  831. 8360 CN[178]0:[141]7900
  832. 8370 [141]9630
  833. 8380 [139]PI[178]0[175]PL[178]0[167]8600
  834. 8390 [139]PI[178]0[167][137]10040
  835. 8400 [139]PL[178]0[167][137]9950
  836. 8410 [141]7090:[141]7470:[141]8480
  837. 8420 [137]9890
  838. 8430 [153][202](DN$,1,13)
  839. 8440 [129]I[178]1[164]9
  840. 8450 [153][163]TB) L$
  841. 8460 [130]
  842. 8470 [142]
  843. 8480 [153]"CONT    SID:";O1;[163]20)"  "N$":";O2
  844. 8490 [139]O1[177]120[167]8520
  845. 8500 [139]O2[177]120[167][153]"LOADYOU JUST BARELY WON"O2"TO"O1:[137]8550
  846. 8510 [142]
  847. 8520 [153]"LOADI BEAT YOU"O1"TO"O2
  848. 8530 [139]O2[179]60[167][153]"AND THATS A DOUBLE SKUNK..."
  849. 8540 [139]O2[179]90[167][153]"AND THATS A SKUNK..."
  850. 8550 [153]"DO YOU WANT TO PLAY AGAIN "N$"
  851. 8560 INPUT"TYPE Y OR N";G$
  852. 8570 IFG$="Y"THENPRINTB$:PRINT"[145]OK.":CLR:GOSUB170:GOSUB2420:GOTO1890
  853. 8580 IFG$="N"THENPRINTB$:PRINT"[145]OK, CHICKEN, SEE YOU IN THE FUNNIES!!!":END
  854. 8590 PRINT"TYPE Y(YES) OR N(NO) [145][145][145][145][145][145][145]":G$="":GOTO8550
  855. 8600 REM
  856. 8610 REM HAND FINISHED
  857. 8620 REM
  858. 8630 :
  859. 8640 ONTRGOTO8650,8970
  860. 8650 GOSUB6020
  861. 8660 SC=0:GOSUB8480
  862. 8670 CP(5)=UP:CS(5)=US:CV(5)=UV
  863. 8680 FORI=1TO5
  864. 8690 VP(I)=CP(I)
  865. 8700 VS(I)=CS(I)
  866. 8710 VL(I)=CV(I)
  867. 8720 NEXT
  868. 8730 GOSUB2730
  869. 8740 GOSUB450
  870. 8750 GOSUB550
  871. 8760 GOSUB650
  872. 8770 GOSUB840
  873. 8780 RN=0
  874. 8790 GOSUB5720
  875. 8800 IFRN=1THEN8840
  876. 8810 GOSUB5840
  877. 8820 IFRN=1THEN8840
  878. 8830 GOSUB5930
  879. 8840 GOSUB4960
  880. 8850 GOSUB5380
  881. 8860 GOSUB5590:O1=O1+SC
  882. 8870 PRINTMID$(DN$,1,22)"WHICH IS WORTH"SC"POINTS
  883. 8880 [139]SC[177]14[175]O1[177]O2[175]I2[178]2[167][153]"SO THERE...":I2[178]0:[137]8920
  884. 8890 [139]SC[177]14[175]O1[177]O2[175]I2[178]1[167][153]"WHAT DO YOU THINK OF THAT HEY??":I2[178]2
  885. 8900 [139]SC[177]14[175]O1[177]O2[175]I2[178]0[167][153]"I'M GOING TO WHIP YOUR....":I2[178]1
  886. 8910 [139]SC[177]14[175]O2[177]O1[167][153]"LOOK OUT I'M CATCHING UP..."
  887. 8920 [151]198,0:[146]198,1:[161]G$
  888. 8930 [141]8480
  889. 8940 [139]TR[178]2[167]6640
  890. 8950 :
  891. 8960 :
  892. 8970 [141]6160
  893. 8980 SC[178]0:[141]8480
  894. 8990 PP(5)[178]UP:PS(5)[178]US:PV(5)[178]UV
  895. 9000 [129]I[178]1[164]5
  896. 9010 VP(I)[178]PP(I)
  897. 9020 VS(I)[178]PS(I)
  898. 9030 VL(I)[178]PV(I)
  899. 9040 [130]
  900. 9050 [141]2730
  901. 9060 [141]450
  902. 9070 [141]550
  903. 9080 [141]650
  904. 9090 [141]840
  905. 9100 RN[178]0
  906. 9110 [141]5720
  907. 9120 [139]RN[178]1[167]9160
  908. 9130 [141]5840
  909. 9140 [139]RN[178]1[167]9160
  910. 9150 [141]5930
  911. 9160 [141]4960
  912. 9170 [141]5480
  913. 9180 [141]5590:O2[178]O2[170]SC
  914. 9190 [153][202](DN$,1,22)"WHICH IS WORTH"SC"POINTS
  915. 9200 IFSC<6ANDI3=8THENPRINT"GOSH YOU'RE GOOD.":I3=0
  916. 9210 IFSC<6ANDI3=7THENPRINT"GOSH A WHOLE"SC"POINTS, I'M SHAKING":I3=8
  917. 9220 IFSC<6ANDI3=6THENPRINT"LOOK OUT YOUR ON THE MOVE":I3=7
  918. 9230 IFSC<6ANDI3=5THENPRINT"BOY THAT WAS A TOUGH ONE TO COUNT":I3=6
  919. 9240 IFSC<6ANDI3=4THENPRINT"I THINK YOU'RE PLAYING SUPERBLY!!":I3=5
  920. 9250 IFSC<6ANDI3=3THENPRINT"HOW DO YOU GET SUCH GOOD HANDS?":I3=4
  921. 9260 IFSC<6ANDI3=2THENPRINT"I WISH I WAS AS LUCKY AS YOU...":I3=3
  922. 9270 IFSC<6ANDI3=1THENPRINT"ALMOST NOT WORTH COUNTING, HEY?":I3=2
  923. 9280 IFSC<6ANDI3=0THENPRINT"WOW"SC"POINTS, HOW DID YOU DO IT?":I3=1
  924. 9290 IFSC>12ANDO2>O1ANDII=3THENPRINT"YOU LUCKY SON OF A...":II=0:GOTO9330
  925. 9300 IFSC>12ANDO2>O1ANDII=2THENPRINT"HOW LUCKY CAN YOU GET???":II=3:GOTO9330
  926. 9310 IFSC>12ANDO2>O1ANDII=1THENPRINT"I THINK YOU'RE CHEATING.":II=2:GOTO9330
  927. 9320 IFSC>12ANDO2>O1ANDII=0THENPRINT"BEGINERS LUCK!":II=1
  928. 9330 IFSC>12ANDO1>O2THENPRINT"I'M NOT WORRIED...YET"
  929. 9340 POKE198,0:WAIT198,1:GETG$
  930. 9350 GOSUB8480
  931. 9360 IFTR=1THEN6640
  932. 9370 GOTO8650
  933. 9380 :
  934. 9390 REM
  935. 9400 REM INTSRUCTIONS
  936. 9410 REM
  937. 9420 PRINT"[147]             [213][192][192][192][192][192][192][192][192][192][192][201]"
  938. 9430 PRINT"             [221] CRIBBAGE [221]"
  939. 9440 PRINT"             [202][192][192][192][192][192][192][192][192][192][192][203]"
  940. 9450 PRINT"  THIS COMPUTERIZED GAME OF CRIBBAGE IS"
  941. 9460 PRINT" PLAYED  THE  SAME  WAY  THAT  ORDINARY"
  942. 9470 PRINT" CRIBBAGE  IS  PLAYED  EXCEPT  FOR  ONE"
  943. 9480 PRINT" MAJOR DIFFERENCE  ---  NO  POINTS  ARE"
  944. 9490 PRINT" AWARDED  FOR  RUNS  THAT  OCCUR DURING"
  945. 9500 PRINT" PEGGING."
  946. 9510 PRINT"  THE FIRST PERSON (COMPUTER) TO  REACH"
  947. 9520 PRINT" 121 POINTS WILL BE THE WINNER.
  948. 9530 [153]"           ** GOOD LUCK **"
  949. 9540 [153]"DEFNOTE: CONTTO PLAY OR DISCARD ANY CARD, JUST"
  950. 9550 [153]"      TYPE IN THE NUMBER UNDER THE CARD."
  951. 9560 [153]"        <HIT ANY KEY TO START>"
  952. 9570 [151]198,0
  953. 9580 [146]198,1
  954. 9590 [161]G$:[153]"LOAD"
  955. 9600 [141]2390:[137]1890
  956. 9610 :
  957. 9620 :
  958. 9630 [143]
  959. 9640 [143] CHECK IF CAN PLAY COMP
  960. 9650 [143]
  961. 9660 :
  962. 9670 PI[178]0
  963. 9680 [129]I[178]1[164]4
  964. 9690 [139]C0(I)[178]0[167]9710
  965. 9700 [139]CN[170]CV(I)[179]32[167]PI[178]I:I[178]4
  966. 9710 [130]
  967. 9720 [142]
  968. 9730 CZ[178]0
  969. 9740 [129]I[178]4[164]1[169][171]1
  970. 9750 [139]CN[170]CV(I)[179]32[175]C0(I)[178]1[167]CZ[178]I:I[178]1
  971. 9760 [130]
  972. 9770 [142]
  973. 9780 :
  974. 9790 :
  975. 9800 [143]
  976. 9810 [143] SID PLAYS FIRST
  977. 9820 [143]
  978. 9830 :
  979. 9840 [141]8480
  980. 9850 [141]7090:[141]7470
  981. 9860 PB[178]22:[141]8480
  982. 9870 [141]7590:[141]7750:[141]8480
  983. 9880 [141]7300:[141]7470:[141]8480
  984. 9890 [141]7900
  985. 9900 [139]PL[178]0[167][141]9950
  986. 9910 [141]7590:[141]7750:[141]8480
  987. 9920 [141]9630
  988. 9930 [139]PI[178]0[167]10040
  989. 9940 [137]9880
  990. 9950 [143]
  991. 9960 [143] PLAYER CAN'T PLAY
  992. 9970 [143]
  993. 9980 :
  994. 9990 [141]9630
  995. 10000 [139]PI[178]0[167]8170
  996. 10010 [141]7300:[141]7470:[141]8480
  997. 10020 [137]9990
  998. 10030 :
  999. 10040 [143]
  1000. 10050 [143] COMPUTER CAN'T PLAY
  1001. 10060 [143]
  1002. 10070 :
  1003. 10080 [141]7900
  1004. 10090 [139]PL[178]0[167]8170
  1005. 10100 [141]7590:[141]7750:[141]8480
  1006. 10110 [137]10080
  1007. 10120 :
  1008.